array sort in perl

visit shbcf.ru